home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
sellmor2.zip
/
INVOICE2.RPT
< prev
next >
Wrap
Text File
|
1992-07-10
|
2KB
|
52 lines
*#store .t. #to debug_on
#@ 9,30 #say boldon+"STATEMENT OF SUPPLY"+boldoff
#@ 14,1 #say dtoc(invoice->date)
#@ 18,1 #say trim(clients->salutation)+" "+trim(clients->fname)+" "+trim(clients->lname)
#if ""#trim(clients->title)
#@ fmrow+1,1 #say clients->title
#endif
#@ fmrow+1,1 #say clients->company
#@ fmrow+1,1 #say clients->add1
#if ""#trim(clients->add2)
#@ fmrow+1,1 #say clients->add2
#endif
#@ fmrow+1,1 #say TRIM(clients->city)+", "+clients->state+" "+clients->zip
#@ 28,1 #say "Your request, as listed under, has been despatched:"
#@ 30,1 #say ""
#store invoice->invoice #to minvoice
#store 1 #to mpage
#store 0 #to ttl1
#select events
#seek minvoice
#doWHILE events->inv_num=minvoice .and. .not. eof()
#@ fmrow+1,1 #say tran(hours,"9999") + " copy @ " + tran(rate,"99999.99") + " " + descrip
#store ttl1 + hours * rate #to ttl1
#skip 1
#IF FMRow >= 41 .and. events->inv_num=minvoice .and. .not. eof()
#FORMPRINT
#EJECT
#FORMCLEAR 31, 66
#store mpage+1 #to mpage
#@ 30,1 #say ""
#ENDIF
#enddo
#select invoice
#@ 46,1 #say "Total: " + tran(ttl1,"99999999.99") + " Statement No " + minvoice
#@ 48,1 #say "Account No to Debit: " + invoice->po_num
#@ 51,1 #say "Thank you for your interest in an Asset Control Technology"
#@ 52,1 #say "product. Enclosed is our current product and price list for your"
#@ 53,1 #say "perusal. Payment for manuals has been transferred from your"
#@ 54,1 #say "account and the appropriate Transfer Voucher will be sent to you"
#@ 55,1 #say "in due course."
#@ 57,1 #say "R Gerke"
#@ 58,1 #say "Manager"
#@ 59,1 #say "Asset Control Technology"
#formprint
#eject